home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / director / evalcopy / director.z / NAVIGATR.DIR / 00473_Field_473.txt < prev    next >
Text File  |  1994-06-14  |  2KB  |  84 lines
  1. MECH ,  77
  2. --=================================================================
  3. -- This handler reads a stream of data, from a file
  4. -- and converts it into an part number. With the part number
  5. -- it can then create a part of that type. It then places the
  6. -- part on the peg board using the coorindates also read
  7. -- from the file.
  8.  
  9. on readToStage me,thisFile
  10.   -- get numb of parts
  11.   put thisFile(mReadChar) into myChar
  12.   put NumToChar(myChar)  into myChar
  13.   
  14.   repeat while myChar <> "="
  15.     put thisFile(mReadChar) into myChar
  16.     put NumToChar(myChar)  into myChar
  17.   end repeat
  18.   put thisFile(mReadChar) into myChar
  19.   put NumToChar(myChar)  into myChar
  20.   
  21.   put "" into pnStr    
  22.   repeat while myChar <> RETURN  
  23.     set pnStr = pnStr&myChar
  24.     put thisFile(mReadChar) into myChar  
  25.     put NumToChar(myChar)  into myChar      
  26.   end repeat
  27.   
  28.   put thisFile(mReadChar) into myChar
  29.   put NumToChar(myChar)  into myChar
  30.   put value(pnStr) into index  
  31.   -- get the parts 
  32.   set count = 1
  33.   
  34.   repeat while count < index
  35.     -- get the ID , used as an ID for the type of part
  36.     put "" into pnStr      
  37.     repeat while (myChar <> ",")
  38.       set pnStr = pnStr&myChar
  39.       put thisFile(mReadChar) into myChar
  40.       put NumToChar(myChar)  into myChar        
  41.     end repeat
  42.     put value(pnStr) into thisID
  43.     put thisFile(mReadChar) into myChar
  44.     put NumToChar(myChar)  into myChar
  45.     
  46.     -- get locH and locV
  47.     put "" into pnStr 
  48.     repeat while (myChar <> ",")
  49.       set pnStr = pnStr&myChar
  50.       put thisFile(mReadChar) into myChar
  51.       put NumToChar(myChar)  into myChar 
  52.     end repeat
  53.     put value(pnStr) into thisLocH
  54.     
  55.     put thisFile(mReadChar) into myChar
  56.     put NumToChar(myChar)  into myChar
  57.     put "" into pnStr    
  58.     
  59.     repeat while (myChar <> RETURN)
  60.       set pnStr = pnStr&myChar
  61.       put thisFile(mReadChar) into myChar
  62.       put NumToChar(myChar)  into myChar
  63.     end repeat
  64.     put value(pnStr) into thisLocV
  65.     put thisFile(mReadChar) into myChar
  66.     put NumToChar(myChar)  into myChar
  67.     
  68.     -- create the part
  69.     set partNum = mPartIDToPartn (me,thisID)
  70.     set thisSprite = mNewPart (me,partNum) 
  71.     
  72.     if thisSprite then 
  73.       --set thisSprite = mGetSprite (thisPart) 
  74.       set the locH of sprite thisSprite = thisLocH
  75.       set the locV of sprite thisSprite   = thisLocV
  76.     end if
  77.     set count = count + 1
  78.   end repeat
  79. end readToStage
  80.  
  81.  
  82.  
  83.  
  84.